home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / hardware / inoutbrd.lha / in-out-board / amos_sources / LCD.ASC < prev    next >
Text File  |  1995-11-28  |  4KB  |  133 lines
  1. '***************************************************************************
  2. '*                                                                         *
  3. '*                                LCD.Amos                                 *
  4. '*                                                                         *
  5. '*                     © 1993,94,95 Andreas Heinrich                       *
  6. '*                                                                         *
  7. '*             Dieses Programm steuert ein LCD-Display an und              *
  8. '*          gibt die ASCII-Codes von 0-255 an das Display weiter.          *
  9. '*                                                                         *
  10. '***************************************************************************
  11. '  A=Adresse
  12. '  N=Wert
  13. '  U=1 = Neue Zeile
  14. '  T=Positionszähler
  15. '  Procedure Daten = Datenwort wird über Port 3 an das LCD-Display geschickt
  16. '  Procedure Kommando = Steuerwort wird gesendet
  17. '
  18.    Global A,N,U,T
  19. '
  20. '**************************** Init für In_Out_Board ************************
  21. '
  22.    INIT
  23. '
  24. '********************** Init Kommandos für LCD - Display *******************
  25. '
  26. N=$38 : Rem             Display initialisieren
  27. KOMMANDO
  28. N=$1 : Rem              Anzeige löschen
  29. KOMMANDO
  30. Wait 1 : Rem            Muß hier 1/50 Sekunde warten
  31. '
  32. N=$E : Rem              Schreibmarke einschalten
  33. KOMMANDO
  34. N=$6 : Rem              Cursor an
  35. KOMMANDO
  36. '
  37. '**************************** Demo für die Ausgabe **************************
  38. '
  39. '      ( Ab hier können dann eigene Programme eingefügt werden.)
  40. '
  41. '          Gibt die Werte von 0 bis 255 auf die Anzeige
  42. '          Nicht jedem Wert ist auch ein Zeichen zugeordnet
  43. NOCH_EINMAL:
  44. T=1
  45. For B=0 To 255
  46.  N=B
  47.   DATEN
  48.    Wait 5 : Rem   Hier ist kleine Warteschleife, damit man den Cursor sieht.
  49.      Inc T
  50. '*************** Diese Routine löscht nach 1 Sekunde das Display ************
  51. '
  52.  If T=17
  53.    U=1
  54.     N=$C0
  55.   KOMMANDO
  56. End If
  57. '
  58. If T=33 and U=1
  59.   U=0
  60.     T=1
  61.        Wait 50
  62.      N=$1
  63.    KOMMANDO
  64. End If
  65. '
  66. '****************************************************************************
  67. '
  68. Next B
  69. Goto NOCH_EINMAL : Rem   Und noch einmal nach NOCH_EINMAL
  70. '
  71. '********************************* Ende *************************************
  72. '
  73. '******************************* Proceduren *********************************
  74. '
  75. Procedure SCHREIBEN
  76. '
  77. Poke 12570624,248+A : Rem  Adresse A selektieren
  78. Poke 12575489,255 : Rem    Port als Ausgang schalten
  79. Poke 12574977,N : Rem      Wert N schreiben
  80. Poke 12570624,255 : Rem    Ready LED einschalten
  81. '
  82. End Proc
  83. '
  84. Procedure INIT
  85. '
  86. '******************** Nach dem Einschalten aufrufen ***********************
  87. '
  88. Poke 12571136,199 : Rem    Busy,P-aus und SEL=Bitmuster Ausgabe
  89. Poke 12570624,255 : Rem    Adresse 7 selektieren (Ready LED ein)
  90. Poke 12575489,0 : Rem      Port als Eingang schalten
  91. '
  92. '**************************************************************************
  93. End Proc
  94. '
  95. Procedure KOMMANDO
  96. '
  97. A=3 : Rem Steuerwort an Port 3 senden
  98. SCHREIBEN
  99. '
  100. '******************** Umschalten nach Steuerwort **************************
  101. '                          LCD-Freigabe usw.
  102. A=4
  103. N=3
  104. SCHREIBEN
  105. '
  106. N=1
  107. SCHREIBEN
  108. '
  109. N=2
  110. SCHREIBEN
  111. '
  112. N=3
  113. SCHREIBEN
  114. '
  115. '**************************************************************************
  116. End Proc
  117. '
  118. Procedure DATEN
  119. A=3 : Rem Datenwort nach Port 3
  120. SCHREIBEN
  121. '
  122. '*************************** LCD-Freigabe ********************************
  123. '
  124. A=4
  125. N=2
  126. SCHREIBEN
  127. '
  128. N=3
  129. SCHREIBEN
  130. '*************************************************************************
  131. End Proc
  132. '
  133.